home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2004 September / LiquidLibrary 2004 Sep - Disc 2.iso / pc / Portfolio Browser / Filters / PSI_ETC / TYPE1.PS < prev   
Text File  |  2003-01-03  |  661b  |  50 lines
  1. %
  2. %  Remove all fonts from FontDirectory
  3. %
  4.  
  5. {
  6.   /more false def
  7.   FontDirectory{/more true def pop undefinefont exit}forall
  8.   more not{exit}if
  9. }loop
  10.  
  11. %
  12. %  Load the type1 font
  13. %
  14.  
  15. @args 1 get run
  16.  
  17. %
  18. %  The only font in FontDirectory now should be this one
  19. %
  20.  
  21. FontDirectory{exit}forall
  22. /font exch def
  23.  
  24. %
  25. %  Load up the initial font info
  26. %
  27.  
  28. font /FontInfo get begin
  29. FamilyName
  30. Weight
  31. ItalicAngle
  32. UnderlinePosition
  33. UnderlineThickness
  34. end
  35. font /FontBBox get
  36. font /FontType get
  37.  
  38. %
  39. %  Load up encoding and charstring locations
  40. %
  41.  
  42. font /Encoding get
  43. font /CharStrings get
  44.  
  45. %
  46. %  Set it as the current font
  47. %
  48.  
  49. font setfont
  50.